#lang racket
(provide atom?)
(define atom?
  (lambda (x)
   (and (not (pair? x) )
        (not (null? x))
        )))

